Load required libraries
library(readxl)
library(ggplot2)
library(RColorBrewer)
library(plotly)
##
## Attaching package: 'plotly'
## The following object is masked from 'package:ggplot2':
##
## last_plot
## The following object is masked from 'package:stats':
##
## filter
## The following object is masked from 'package:graphics':
##
## layout
DONUT CHART
#Donut Chart
fig <- obama_approvals_df %>% plot_ly(labels = ~Issue, values = ~Approve, textposition = 'outside', textinfo='percent+label')
fig <- fig %>% add_pie(hole = 0.6)
fig <- fig %>% layout(title = "Donut charts using Plotly", showlegend = F)
fig
#Pie Chart
fig <- obama_approvals_df %>% plot_ly(labels = ~Issue, values = ~Disapprove,
type = 'pie', textposition = 'outside',
textinfo='value+label')
fig <- fig %>% layout(title = "Pie charts using Plotly", showlegend = F)
fig
#Stacked Bar Chart
fig <- plot_ly(obama_approvals_df)
fig <- fig %>% add_trace(x = ~Issue,y = ~None, name = 'None',text = ~None, type='bar',
marker = list(color = 'rgb(127, 200, 250)',
line = list(color = 'rgb(8,48,107)' )))
fig <- fig %>% add_trace(x = ~Issue,y = ~Disapprove, name = 'Disapprove',text = ~Disapprove, type='bar',
marker = list(color = 'rgb(45, 167, 250)',
line = list(color = 'rgb(8,48,107)')))
fig <- fig %>% add_trace(x = ~Issue,y = ~Approve, name = 'Approve', text = ~Approve, type='bar',
marker = list(color = 'rgb(4, 74, 122)',
line = list(color = 'rgb(8,48,107)')))
fig <- fig %>% layout(yaxis = list(title = 'Count'), barmode = 'stack',
xaxis = list(title = "Issue", tickangle = -75))
fig
#Bar Chart
fig <- plot_ly(obama_approvals_df,x = ~Issue,y = ~Disapprove, name = 'Disapprove',
text = ~Disapprove, type='bar',
marker = list(color = 'rgb(20, 71, 252)',
line = list(color = 'rgb(8,48,107)')))
fig <- fig %>% layout(yaxis = list(title = 'Count'),
xaxis = list(title = "Issue", tickangle = -75))
fig
# Line Chart
fig <- plot_ly(obama_approvals_df, x = ~Issue)
fig <- fig %>% add_lines(y = ~Disapprove, name = "Disapprove")
fig <- fig %>% add_lines(y = ~Approve, name = "Approve")
fig